Dit voorbeeld maakt gebruik van de operator Eqv om een logische equivalentie uit te voeren op twee expressies.
Dim A, B, C, D, MyCheck
A = 10: B = 8: C = 6: D = Null ' Initialiseert variabelen.
MyCheck = A > B Eqv B > C ' Is True.
MyCheck = B > A Eqv B > C ' Is False.
MyCheck = A > B Eqv B > D ' Levert het resultaat Null op.
MyCheck = A Eqv B ' Geeft -3 (bitsgewijze vergelijking).